home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / cboot.d64 / draw'chars'big.l < prev    next >
Text File  |  2009-01-23  |  5KB  |  152 lines
  1. 9000 PROC DRAWLETTER(C$,L'SIZE) CLOSED
  2. 9005 CASE C$ OF
  3. 9010 WHEN "A"
  4. 9015 DRAWTEXT("F8RF2RF5RF2RF8RRF2RRF3LLF4LLF3RRF2RRUF5RRF2D",L'SIZE)
  5. 9020 DRAWTEXT("F4LLF2LF2LF1LF2LF2UF1DX",L'SIZE)
  6. 9025 WHEN "B"
  7. 9030 DRAWTEXT("F8F2RRF5RF2RF2RF2LLF2RF2RF2RF5UB2RRF1DF3RRF2RF1RF1RF1",L'SIZE)
  8. 9035 DRAWTEXT("RF2RRUF4DF3RRF2RF1RF1RF1RF2UF1DX",L'SIZE)
  9. 9040 WHEN "C"
  10. 9045 DRAWTEXT("UF2DF6RF2RF4RF1RF2RRF2RRF1LLF1LF1LF4LF1LF1LLF1RRF2RRF2R",L'SIZE)
  11. 9050 DRAWTEXT("F1RF4RF2RRUF1DX",L'SIZE)
  12. 9055 WHEN "D"
  13. 9060 DRAWTEXT("F5F5RRF5RF2RF7RF2RF5URRF2RRF2DF2LF1LF5LF1LF2LLF7UF1DX",L'SIZE)
  14. 9065 WHEN "E"
  15. 9070 DRAWTEXT("F5F5RRF7RRF2RRF4LLF2LLF2RRF2RRF2LLF2LLF4RRF2RRF7URRRF2DX",L'SIZE)
  16. 9075 WHEN "F"
  17. 9080 DRAWTEXT("F5F5RRF7RRF2RRF5LLF2LLF3RRF2RRF3LLF4RRF2URRRF1DX",L'SIZE)
  18. 9085 WHEN "G"
  19. 9090 DRAWTEXT("UF2DF6RF2RF6RRF2RRF5LF1LF4LF1LF3LLF2LLF1RRF1RRF3RRF4RF1",L'SIZE)
  20. 9095 DRAWTEXT("RF5RF2URRF1DX",L'SIZE)
  21. 9100 WHEN "H"
  22. 9105 DRAWTEXT("F5F5RRF2RRF4LLF3LLF4RRF2RRF5F5RRF2RRF4LLF3LLF4RRF2URRRF1DX",L'SIZE)
  23. 9110 WHEN "I"
  24. 9115 DRAWTEXT("F2RRF2LLF6LLF2RRF2RRF6RRF2RRF2LLF6LLF2RRF2RRF6RRRUF1DX",L'SIZE)
  25. 9120 WHEN "J"
  26. 9125 DRAWTEXT("UF1DF2RRF2RRF1LLF2LLF6LLF3RRF2RRF8RRF2RRF3LLF8RRF5RF1",L'SIZE)
  27. 9130 DRAWTEXT("URRF1DX",L'SIZE)
  28. 9135 WHEN "K"
  29. 9140 DRAWTEXT("F5F5RRF2RRF4LLLF4RF2RRRF5LLF5RRRF2RF4LLLF4RRF2URRRF1DX",L'SIZE)
  30. 9145 WHEN "L"
  31. 9150 DRAWTEXT("F4F5RRF2RRF7LLF5RRF2RRF7RRRUF1DX",L'SIZE)
  32. 9155 WHEN "M"
  33. 9160 DRAWTEXT("F4F5RRF2RF2LLF2RF2RRF4F5RRF2RRF7LLLF2RRF2LLLF7RRF2RRRUF1D",L'SIZE)
  34. 9165 DRAWTEXT("X",L'SIZE)
  35. 9170 WHEN "N"
  36. 9175 DRAWTEXT("F5F5RRF2RF4LLLF3RRF2RRF5F5RRF2RRF4LF4LLLF7RRF2RRRUF1DX",L'SIZE)
  37. 9180 WHEN "O","0"
  38. 9185 DRAWTEXT("UF2DF6RF2RF5RF2RF6RF2RF5RF2RRRUF3DF2LF1LF4LF1LF2LF1LF4LF1",L'SIZE)
  39. 9190 DRAWTEXT("UF1DX",L'SIZE)
  40. 9195 WHEN "P"
  41. 9200 DRAWTEXT("F5F5RRF6RF2RF3RF2RF4LLF4RRF2RRUF5RRF2DF3LF1LF2LF1LF3LLF4",L'SIZE)
  42. 9205 DRAWTEXT("RUF1DX",L'SIZE)
  43. 9210 WHEN "Q"
  44. 9215 DRAWTEXT("UF2DF6RF2RF4RF2RF6LF1RRF1RRF1LLF1RF4RF2RRRUF2DF2LLF1RRF1",L'SIZE)
  45. 9220 DRAWTEXT("LLF4LF1LF2LF1LF4LF1UF1DX",L'SIZE)
  46. 9225 WHEN "R"
  47. 9230 DRAWTEXT("F5F5RRF5RF2RF3RF2LLF5RRRF2RF4LF2LLF3RRF2RRUF5RRF2D",L'SIZE)
  48. 9235 DRAWTEXT("F2LF1LF1LF1LF2LLF3UF1DX",L'SIZE)
  49. 9240 WHEN "S"
  50. 9245 DRAWTEXT("F2RRF4LLF2LLF2RF2RF2RF2RF5RRF2RRF4LLF2LLF2RF2RF2RF2RF5",L'SIZE)
  51. 9250 DRAWTEXT("RRRUF1DX",L'SIZE)
  52. 9255 WHEN "T"
  53. 9260 DRAWTEXT("UF8DF2RRF8RRF2RRF3LLF8RRF2RRF8LLF3URRRF1DX",L'SIZE)
  54. 9265 WHEN "U"
  55. 9270 DRAWTEXT("UF2DF8RRF2RRF7LF1LF2LF1LF7RRF2RRF8RF2RF4",L'SIZE)
  56. 9275 FORWARD L'SIZE DIV 2
  57. 9280 DRAWTEXT("RF2RRUF1DX",L'SIZE)
  58. 9285 WHEN "V"
  59. 9290 DRAWTEXT("UF4DF6RRF2RRF5LF2LLF2LF5RRF2RRF6RF4",L'SIZE)
  60. 9295 FORWARD (L'SIZE DIV 2)*2
  61. 9300 DRAWTEXT("RRF4",L'SIZE)
  62. 9305 FORWARD (L'SIZE DIV 2)*2
  63. 9310 DRAWTEXT("RRUF1DX",L'SIZE)
  64. 9315 WHEN "W"
  65. 9320 DRAWTEXT("UF3DF7RRF2RRF6LF1LLF2RRF2LLF1LF6RRF2RRF7RF4RRF2LLF2RRF4RRR",L'SIZE)
  66. 9325 FORWARD L'SIZE DIV 5
  67. 9330 DRAWTEXT("UF1DX",L'SIZE)
  68. 9335 WHEN "X"
  69. 9340 DRAWTEXT("F1RF4LLF4RF1RRF1RF4LLF4RF1RRF1RF4LLF4RF1RRF1RF4LLF4RF1RRR",L'SIZE)
  70. 9345 DRAWTEXT("UF1DX",L'SIZE)
  71. 9350 WHEN "Y"
  72. 9355 DRAWTEXT("UF7DF3RRF2RRF2LF2LLF2LF2RRF2RRF3RF3LF4RRF2RRF4L",L'SIZE)
  73. 9360 LEFT L'SIZE DIV 2
  74. 9365 FORWARD L'SIZE DIV 2
  75. 9370 DRAWTEXT("F3RRUF1DX",L'SIZE)
  76. 9375 WHEN "Z"
  77. 9380 DRAWTEXT("F2RF6LLLF5RRF2RRF7RRF2RF6LLLF5RRF2RRF7RRRUF1DX",L'SIZE)
  78. 9385 WHEN "1"
  79. 9390 DRAWTEXT("F2RRF3LLF5LLF3RRRF3RF3RRF7LLF2RRF2RRF7",L'SIZE)
  80. 9395 FORWARD L'SIZE DIV 2
  81. 9400 DRAWTEXT("RRRUF1DX",L'SIZE)
  82. 9405 WHEN "2"
  83. 9410 DRAWTEXT("F2RRF3LF4LF1LF1LF4LLF1RRF2RRF1RF2RF5RF2RF2RF4LLLF4RRF2RRF8",L'SIZE)
  84. 9415 FORWARD L'SIZE DIV 5
  85. 9420 DRAWTEXT("RRF1RRUF1DX",L'SIZE)
  86. 9425 WHEN "3"
  87. 9430 DRAWTEXT("UF1DF2RRF2RRF1LLF3LF1LLF1LF2RRF2RRF2",L'SIZE)
  88. 9435 DRAWTEXT("LF1LLF1LF3LLF1RRF2RRF2RF1RF5RF2RF2RF1",L'SIZE)
  89. 9440 DRAWTEXT("LLF1RF2RF2RF5RF1RRUF1DX",L'SIZE)
  90. 9445 WHEN "4"
  91. 9450 DRAWTEXT("UF3DF7RRF2RRF5LLF4LLF3RRF2RRF8RRF2RRF3LLF6RRRUF1DX",L'SIZE)
  92. 9455 WHEN "5"
  93. 9460 DRAWTEXT("F2RRF5LLF2LLF5RRF6RRF8RRF2RRF6LLF2",L'SIZE)
  94. 9465 DRAWTEXT("LLF4RF2RF3RF2RF6RRRUF1DX",L'SIZE)
  95. 9470 WHEN "6"
  96. 9475 DRAWTEXT("UF2DF6RF2RF5RRF1RRF4LF1LF2LLF3RF2RF2RF2RF3",L'SIZE)
  97. 9480 FORWARD L'SIZE DIV 5
  98. 9485 DRAWTEXT("RF2RRRUF2DF2LF1LF1LF1LF2LF1LF1LF1UF1DX",L'SIZE)
  99. 9490 WHEN "7"
  100. 9495 DRAWTEXT("UF8DF2RRF8RRF5F5RRF2RRF8LLF6RRRUF1DX",L'SIZE)
  101. 9500 WHEN "8"
  102. 9505 DRAWTEXT("UF2DF1RF2LLF2RF1RF2RF3RF2RF1RF2LLF2RF1RF2R",L'SIZE)
  103. 9510 DRAWTEXT("F3RF2RRRUF1DRF1LF2LF1LF1LF1LF2LF1LF1LF1RUB4LLD",L'SIZE)
  104. 9515 DRAWTEXT("F2LF1LF1LF1LF2LF1LF1LF1UF1DX",L'SIZE)
  105. 9520 WHEN "9"
  106. 9525 DRAWTEXT("UF6DF2RF2RF6RRF5F5RRF2RRF5LLF4RF2R",L'SIZE)
  107. 9530 FORWARD L'SIZE DIV 5
  108. 9535 BACK L'SIZE DIV 5
  109. 9540 DRAWTEXT("RRUF3DF2LF1LF1LF1LF2LF1LF1LF1UF1DX",L'SIZE)
  110. 9545 OTHERWISE 
  111. 9550 NULL
  112. 9555 ENDCASE 
  113. 9560 ENDPROC DRAWLETTER
  114. 9565 //
  115. 9570 PROC DRAWTEXT(CHAR$,C'SIZE) CLOSED
  116. 9575 FOR INSTR:=1 TO LEN(CHAR$) DO
  117. 9580 CASE CHAR$(INSTR) OF
  118. 9585 WHEN "F"
  119. 9590 INSTR:+1
  120. 9595 FORWARD (ORD(CHAR$(INSTR))-ORD("0"))*C'SIZE
  121. 9600 WHEN "R"
  122. 9605 RIGHT 45
  123. 9610 WHEN "L"
  124. 9615 LEFT 45
  125. 9620 WHEN "U"
  126. 9625 PENUP 
  127. 9630 WHEN "D"
  128. 9635 PENDOWN 
  129. 9640 WHEN "C"
  130. 9645 CLEAR 
  131. 9650 WHEN "H"
  132. 9655 HOME 
  133. 9660 WHEN "X"
  134. 9665 FILL XCOR,YCOR
  135. 9670 WHEN "B"
  136. 9675 INSTR:+1
  137. 9680 BACK (ORD(CHAR$(INSTR))-ORD("0"))*C'SIZE
  138. 9685 OTHERWISE 
  139. 9690 NULL
  140. 9695 ENDCASE 
  141. 9700 ENDFOR INSTR
  142. 9705 ENDPROC DRAWTEXT
  143. 9710 //
  144. 9715 FUNC YCOR CLOSED
  145. 9720 RETURN 199-PEEK(27260)
  146. 9725 ENDFUNC YCOR
  147. 9730 //
  148. 9735 FUNC XCOR CLOSED
  149. 9740 RETURN PEEK(27255)*256+PEEK(27256)
  150. 9745 ENDFUNC XCOR
  151. 9750 //
  152.